home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / www / IBrowseScripts.lha / ibrowsescripts / rexx / On-offline.miamirx < prev    next >
Text File  |  1998-10-30  |  645b  |  34 lines
  1. /* OnlineMiami Sören Forsberg 1998 */
  2. /*  */
  3. OPTIONS RESULTS
  4.  
  5.  
  6.     IF SHOW('Ports','MIAMI.1') THEN DO
  7.       ADDRESS 'MIAMI.1' 
  8.       'ISONLINE'
  9.       result=rc
  10.       IF result=1 THEN DO
  11.         ADDRESS "COMMAND" 'sys:rexxc/rx ibrowse:rexx/offlinemiami.ibrx'
  12.         EXIT
  13.       END 
  14.       'ISONLINE'
  15.       result=rc
  16.       IF result=0 THEN DO
  17.       IF EXISTS('ibrowse:rexx/busywin') THEN ADDRESS "COMMAND" 'run ibrowse:rexx/busywin ON'
  18.       'ONLINE'
  19.       END
  20.      EXIT
  21.     END
  22.  
  23.     IF ~SHOW('Ports','MIAMI.1') THEN DO
  24.         ADDRESS 'COMMAND'
  25.         'Run >NIL: MIAMI:Miami'
  26.         'SYS:RexxC/WaitForPort MIAMI.1'
  27.         IF EXISTS('ibrowse:rexx/busywin') THEN ADDRESS "COMMAND" 'run ibrowse:rexx/busywin ON'
  28.     END
  29.  
  30.  
  31. EXIT    
  32.  
  33.  
  34.